home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / tour.dxr / 00023_credits first frame.ls < prev    next >
Encoding:
Text File  |  2000-01-21  |  926 b   |  30 lines
  1. on exitFrame
  2.   global gMenuButton, gMenuExit, CreditList, firstCredit, menuAudio
  3.   menuAudio = "none"
  4.   sound stop 1
  5.   CreditList = [:]
  6.   c1 = 5
  7.   addProp(CreditList, c1, new(script("Credit button"), "fotos", "internal", c1, the loc of sprite c1))
  8.   c1 = c1 + 1
  9.   addProp(CreditList, c1, new(script("Credit button"), "HRW", "internal", c1, the loc of sprite c1))
  10.   c1 = c1 + 1
  11.   addProp(CreditList, c1, new(script("Credit button"), "TDP", "internal", c1, the loc of sprite c1))
  12.   firstCredit = 1
  13.   set the puppet of sprite 8 to 1
  14.   set the member of sprite 8 to member("fotos Credits")
  15.   updateStage()
  16.   setHandCursor([5, 6, 7, 40, 41])
  17.   repeat with X = 5 to 7
  18.     creditObj = getaProp(CreditList, X)
  19.     Inscope(creditObj)
  20.   end repeat
  21.   Inscope(gMenuButton)
  22.   Inscope(gMenuExit)
  23.   if firstCredit then
  24.     creditObj = getaProp(CreditList, 5)
  25.     simulateClickOn(creditObj)
  26.     firstCredit = 0
  27.     updateStage()
  28.   end if
  29. end
  30.